﻿

Public Class Plocalidad

    Private objlocalidad As Negocio.Nlocalidad


    Protected Sub btnguardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnguardar.Click

        If (Len(txtnombre.Text) = 0 And Not istex(txtnombre)) Then
            MsgBox("EL Nombre de la localidad es un campo obligatorio", MsgBoxStyle.Exclamation)
            txtnombre.Focus()

            Exit Sub
        End If

        If Not IsNumeric(txtcodpostal.Text) Then
            MsgBox("Debe ingresar un número de codigo postal", MsgBoxStyle.DefaultButton1)
            txtcodpostal.Focus()
            Exit Sub
        End If
        If (Len(txtprovincia.Text) = 0) And Not istex(txtprovincia) Then
            MsgBox("EL Nombre de la provincia es un campo obligatorio", MsgBoxStyle.Exclamation)
            txtprovincia.Focus()
            Exit Sub
        End If


        Dim oLocalidadesNegocios As New Negocio.Nlocalidad
        Dim oLocalidad As New Entidades.ELocalidad
        oLocalidad.nombreloc = UCase(txtnombre.Text)
        oLocalidad.codpostal = UCase(txtcodpostal.Text)
        oLocalidad.provin = UCase(txtprovincia.Text)
        Try
            If oLocalidadesNegocios.cargarLocalidad(oLocalidad) Then
                MsgBox("Carga Exitosa de localidad.", MsgBoxStyle.Information)
            End If
        Catch ex As Exception
            MsgBox("Carga fallida. " + ex.Message, MsgBoxStyle.Exclamation)
        End Try

        dglocalidad.DataSource = objlocalidad.ver
        txtcodigo.Text = ""
        txtnombre.Text = ""
        txtcodpostal.Text = ""
        txtprovincia.Text = ""

    End Sub

    Protected Sub btnmodficar_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmodificar.Click
        If Not IsNumeric(txtcodigo.Text) Then
            MsgBox("Debe ingresar un número de cliente", MsgBoxStyle.DefaultButton1)
            Exit Sub
        End If
        If (Len(txtnombre.Text) = 0) Then
            MsgBox("EL Nombre de la localidad es un campo obligatorio", MsgBoxStyle.Exclamation)
            txtnombre.Focus()
            Exit Sub
        End If
        If Not IsNumeric(txtcodpostal.Text) Then
            MsgBox("Debe ingresar un número de codigo postal", MsgBoxStyle.DefaultButton1)
            Exit Sub
        End If
        If (Len(txtprovincia.Text) = 0) Then
            MsgBox("EL Nombre de la provincia es un campo obligatorio", MsgBoxStyle.Exclamation)
            txtnombre.Focus()
            Exit Sub
        End If

        Dim oLocalidadesNegocios As New Negocio.Nlocalidad
        Dim oLocalidad As New Entidades.ELocalidad
        oLocalidad.cod_loc = UCase(txtcodigo.Text)
        oLocalidad.nombreloc = UCase(txtnombre.Text)
        oLocalidad.codpostal = UCase(txtcodpostal.Text)
        oLocalidad.provin = UCase(txtprovincia.Text)
        Try
            If oLocalidadesNegocios.ModificarLocalidad(oLocalidad) Then
                MsgBox("Modificacion Exitosa de localidad.", MsgBoxStyle.Information)
            End If
        Catch ex As Exception
            MsgBox("Modificacion fallida. " + ex.Message, MsgBoxStyle.Exclamation)
        End Try
        dglocalidad.DataSource = objlocalidad.ver
        txtcodigo.Text = ""
        txtnombre.Text = ""
        txtcodpostal.Text = ""
        txtprovincia.Text = ""

    End Sub

    Protected Sub btneliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btneliminar.Click
        If Not IsNumeric(txtcodigo.Text) Then
            MsgBox("Debe seleccionar una localidad a eliminar", MsgBoxStyle.DefaultButton1)
            Exit Sub
        End If
        Dim oLocalidadesNegocios As New Negocio.Nlocalidad
        Dim oLocalidad As New Entidades.ELocalidad
        oLocalidad.cod_loc = UCase(txtcodigo.Text)
        Try
            If oLocalidadesNegocios.EliminarLocalidad(oLocalidad) Then
                MsgBox("Eliminacion Exitosa de localidad.", MsgBoxStyle.Information)
            End If
        Catch ex As Exception
            MsgBox("Eliminacion fallida. " + ex.Message, MsgBoxStyle.Exclamation)
        End Try
        dglocalidad.DataSource = objlocalidad.ver
        txtcodigo.Text = ""
        txtnombre.Text = ""
        txtcodpostal.Text = ""
        txtprovincia.Text = ""

    End Sub

    Protected Sub btnver_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnver.Click
        dglocalidad.DataSource = objlocalidad.ver
    End Sub

    Protected Sub Plocalidad_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        objlocalidad = New Negocio.Nlocalidad
        Me.WindowState = FormWindowState.Maximized
    End Sub

    Protected Sub dglocalidad_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dglocalidad.DoubleClick
        If dglocalidad.RowCount Then
            Dim i As Integer
            i = dglocalidad.CurrentCell.RowIndex
            txtcodigo.Text = dglocalidad.Rows(i).Cells(0).Value
            txtnombre.Text = dglocalidad.Rows(i).Cells(1).Value
            txtcodpostal.Text = dglocalidad.Rows(i).Cells(2).Value
            txtprovincia.Text = dglocalidad.Rows(i).Cells(3).Value


        End If

    End Sub

    Private Sub btnlimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlimpiar.Click
        txtcodigo.Text = ""
        txtnombre.Text = ""
        txtcodpostal.Text = ""
        txtprovincia.Text = ""
    End Sub
End Class